home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_46.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  887 b   |  36 lines
  1. on enterFrame
  2.   global experimenterMenu
  3.   set ActiveStartspr to 3
  4.   set naviguer to ActiveStartspr
  5.   set startBalls to 4
  6.   set seBrancherBall to startBalls
  7.   set diffuserBall to startBalls + 1
  8.   set correspondreBall to startBalls + 2
  9.   set echangerBall to startBalls + 3
  10.   set naviguerBall to startBalls + 4
  11.   set webBall to startBalls + 5
  12.   set startHighLightSpr to 10
  13.   set web to startHighLightSpr
  14.   set startHotSpot to 11
  15.   set webHS to startHotSpot
  16.   set ro to rollOver()
  17.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), web, web)
  18.   case ro of
  19.     naviguer, naviguerBall:
  20.       go(the frame)
  21.     webHS, webBall:
  22.       puppetSprite(web, 1)
  23.       set the member of sprite web to member "web"
  24.       updateStage()
  25.       go(the frame)
  26.     otherwise:
  27.       depuppetize(web, web)
  28.       updateStage()
  29.       go("naviguerClose")
  30.   end case
  31. end
  32.  
  33. on exitFrame
  34.   go(the frame)
  35. end
  36.